10 REM --- SCHREIBERLING V2 ---
20 REM AUS 64'ER MAGAZIN 10/85
30 REM
40 REM VERBESSERT VON FRANK BEHRENS
50 REM FORSTMEISTERWEG 8
60 REM 2400 LUEBECK
70 REM
80 K=828: B=59392
90 FORI=KTOK+55:READX:POKEI,X:NEXT
100 SYS K
110 FORI=BTOB+7:READX:POKEI,X:NEXT
120 A=B+27*8
130 FORI=ATOA+7:READX:POKEI,X:NEXT
140 A=B+29*8
150 FORI=ATOA+7:READX:POKEI,X:NEXT
160 A=B+43*8
170 FORI=ATOA+7:READX:POKEI,X:NEXT
180 A=B+60*8
190 FORI=ATOA+7:READX:POKEI,X:NEXT
200 A=B+62*8
210 FORI=ATOA+7:READX:POKEI,X:NEXT
220 A=B+122*8
230 FORI=ATOA+7:READX:POKEI,X:NEXT
240 REM
250 POKE53280,0:POKE53281,0
260 PRINT CHR$(9)CHR$(14)CHR$(8)
270 PRINT"[147][156]   [211]CHREIBERLING[158] LIEST [196]ATEN"
280 PRINT"   [194]ITTE WARTEN..."
290 DIM A$(92,2)
300 FOR I=1 TO 16: Q$=Q$+CHR$(0): NEXT
310 O$=Q$+Q$ : E$=CHR$(27)
320 SD$=E$+"K"+CHR$(128)+CHR$(2)
330 MD$=E$+"*"+CHR$(4)+CHR$(85)+CHR$(3)
340 DD$=E$+"L"+CHR$(0)+CHR$(5)
350 L$=E$+"A"+CHR$(8)+E$+"8"+CHR$(7)
360 BZ=52344: LF$=CHR$(10)+CHR$(10)
370 REM
380 REM --- EINLESEN ---
390 REM
400 FOR I=0 TO 92
410  FOR J=0 TO 2
420   READ X :IF X=-1 THEN 450
430   A$(I,J)=A$(I,J)+CHR$(X)
440   GOTO 420
450  NEXT
460  IF LEN(A$(I,2))=0 THEN A$(I,2)=LEFT$(O$,LEN(A$(I,0)))
470 NEXT
480 REM --- DRUCKERTEST ---
490 GOSUB 800
500 REM
510 REM --- ZEILEN-TEXTEDITOR ---
520 REM
530 PRINT"[147][154]     [194]ITTE EINE [218]EILE EINGEBEN :        [158][146]"
540 POKE204,0: POKE198,0
550 WAIT198,1:GET T$:PRINT T$;
560 IF T$=CHR$(13) THEN 610
570 GOTO 550
580 REM
590 REM --- AUSGABE ---
600 REM
610 POKE207,0: POKE204,1: Y=50: P=0
620 OPEN1,4 : Z=PEEK(BZ)
630 IF Z=30 THEN PRINT#1,LF$: CLOSE1: GOTO 530
640 IF Z=35 THEN Y=99: P=1: XD$=DD$: GOTO 670
650 IF Z=31 THEN Y=66: P=1: XD$=MD$: GOTO 670
660 XD$=SD$
670 FOR J=0 TO 2
680  PRINT#1,XD$;
690  FOR I=BZ+P TO BZ+Y
700   W=PEEK(I)
710   IF W=122 THEN PRINT#1,A$(92,J);: GOTO 740
720   IF W>91 THEN PRINT#1,Q$;: GOTO 740
730   PRINT#1,A$(W,J);
740  NEXT: PRINT#1
750 NEXT
760 CLOSE1: GOTO 530
770 REM
780 REM --- DRUCKERTEST ---
790 REM
800 POKE768,61:OPEN1,4:PRINT#1,L$;:CLOSE1:POKE768,139
810 IF ST=-128 THEN 830
820 RETURN
830 PRINT"[156]   [194]ITTE [196]RUCKER EINSCHALTEN !"
840 WAIT203,63:GOTO 800
850 REM
860 REM MASCHINENPRG ZUM VERLEGEN
870 REM DES ZEICHENSATZES
880 DATA120,165,1,41,251,133,1,169,0
890 DATA133,95,133,90,133,88,169,208
900 DATA133,96,169,224,133,91,169,240
910 DATA133,89,32,191,163,165,1,9,4
920 DATA133,1,173,0,221,41,252,141,0
930 DATA221,169,57,141,24,208,169,204
940 DATA141,136,2,88,96
950 REM
960 REM UMLAUTEDATAS F. BILDSCHIRM
970 REM
980 DATA102,0,102,102,102,102,62,0
990 DATA102,0,60,102,102,102,60,0
1000 DATA102,0,60,6,62,102,62,0
1010 DATA28,38,102,108,102,102,108,96
1020 DATA195,60,102,102,102,102,60,0
1030 DATA195,24,60,102,126,102,102,0
1040 DATA195,0,102,102,102,102,102,60
1050 REM
1060 REM BUCHSTABENDATAS
1070 REM KLEIN UE
1080 DATA0,2,3,51,112,0,0,50,115,3,0,0,0,-1
1090 DATA0,0,254,255,3,1,1,2,254,255,1,2,0,-1,-1
1100 REM KLEIN A
1110 DATA0,0,1,3,2,2,2,1,0,1,3,2,0,0,-1
1120 DATA0,252,254,3,1,1,1,1,130,254,255,1,2,0,-1,-1
1130 DATA0,64,255,255,0,1,2,2,2,2,1,1,0,-1
1140 DATA0,0,252,254,193,193,1,1,1,2,254,252,0,-1,-1
1150 DATA0,0,1,3,2,2,2,2,1,1,0,-1,0,252,254,3,1,1,1,1,2,4,0,-1,-1
1160 DATA0,0,0,1,2,2,2,1,128,255,255,0,0,0,-1
1170 DATA0,124,254,3,1,1,1,2,132,254,255,1,2,0,-1,-1
1180 DATA0,0,1,3,2,2,2,2,1,0,0,-1
1190 DATA0,252,254,35,33,33,33,33,161,98,0,-1,-1
1200 DATA0,15,63,114,130,131,131,128,96,32,0,-1
1210 DATA0,255,255,0,0,0,0,0,0,0,0,-1,0,252,252,4,0,0,0,0,0,0,0,-1
1220 DATA0,0,0,1,2,2,2,1,1,1,1,1,0,-1
1230 DATA0,124,254,131,1,1,1,130,132,191,127,128,0,-1
1240 DATA0,56,52,4,4,4,4,8,16,240,224,0,0,-1
1250 DATA0,128,255,255,1,2,2,2,1,1,0,0,0,0,-1
1260 DATA0,0,255,255,0,0,0,0,0,254,255,1,2,0,-1,-1
1270 DATA0,2,51,51,0,0,0,-1,0,0,254,255,1,2,0,-1,-1
1280 DATA0,2,51,51,0,-1,0,0,255,255,0,-1,4,8,240,224,0,-1
1290 DATA0,128,255,255,0,0,0,3,3,0,0,0,-1
1300 DATA0,0,255,255,32,88,76,134,3,1,2,0,-1,-1
1310 DATA0,128,255,255,0,0,0,-1,0,0,254,255,1,2,0,-1,-1
1320 DATA0,1,2,3,1,1,2,3,1,1,2,3,1,0,0,0,-1
1330 DATA0,0,0,255,255,0,0,255,255,0,0,254,255,1,2,0,-1,-1
1340 DATA0,1,2,3,1,1,2,3,1,0,0,0,-1
1350 DATA0,0,0,255,255,0,0,254,255,1,2,0,-1,-1
1360 DATA0,0,1,3,2,2,2,2,3,1,0,0,-1
1370 DATA0,252,254,3,1,1,1,1,3,254,252,0,-1,-1
1380 DATA0,1,2,3,1,0,1,2,2,2,3,1,0,0,-1
1390 DATA0,0,0,255,255,132,2,1,1,1,3,254,252,0,-1
1400 DATA0,0,0,252,252,4,0,0,0,0,0,0,0,0,-1
1410 DATA0,0,0,1,2,2,2,1,1,1,1,1,0,-1
1420 DATA0,124,254,131,1,1,1,130,132,191,127,128,0,-1
1430 DATA0,0,0,0,0,0,0,0,0,252,252,4,4,-1
1440 DATA0,1,2,3,1,2,3,1,1,0,-1,0,0,0,255,255,0,0,128,0,0,-1,-1
1450 DATA0,0,1,3,2,2,2,2,3,1,0,0,-1
1460 DATA0,198,247,49,49,49,49,49,179,159,12,0,-1,-1
1470 REM KLEIN T
1480 DATA0,1,1,127,255,1,1,1,0,-1
1490 DATA0,0,0,254,255,1,2,0,0,-1,-1
1500 REM KLEIN U
1510 DATA0,2,3,3,0,0,0,2,3,3,0,0,0,-1
1520 DATA0,0,254,255,3,1,1,2,254,255,1,2,0,-1,-1
1530 DATA0,1,2,3,3,1,0,0,0,0,0,3,3,0,-1
1540 DATA0,0,0,0,128,224,120,30,7,12,48,192,0,0,-1,-1
1550 DATA0,2,3,3,0,0,3,3,0,0,3,3,0,-1
1560 DATA0,0,254,255,1,2,254,255,1,2,254,252,0,-1,-1
1570 DATA0,2,3,3,2,0,0,0,0,3,2,0,0,-1
1580 DATA0,1,3,132,232,112,56,92,134,3,1,2,0,-1,-1
1590 DATA0,1,2,3,3,1,0,0,0,0,0,3,3,0,-1
1600 DATA0,0,0,0,128,224,120,30,7,12,48,192,0,0,-1
1610 DATA0,0,0,24,28,12,48,192,0,0,0,0,0,0,-1
1620 DATA0,3,3,2,2,2,2,2,3,3,2,0,-1
1630 DATA0,1,3,7,12,57,113,193,129,3,3,0,-1,-1
1640 REM KLEIN OE
1650 DATA0,0,49,51,2,2,2,2,51,49,0,0,-1
1660 DATA0,252,254,3,1,1,1,1,3,254,252,0,-1,-1
1670 DATA0,0,0,1,1,1,63,126,226,194,196,96,48,16,0,-1
1680 DATA0,2,133,5,30,252,230,3,1,1,3,6,0,0,0,-1,-1
1690 REM KLEIN AE
1700 DATA0,0,1,51,98,2,2,49,96,1,3,2,0,0,-1
1710 DATA0,252,254,3,1,1,1,1,130,254,255,1,2,0,-1,-1
1720 DATA0,4,12,24,48,127,48,24,12,4,0,-1
1730 DATA0,0,0,0,0,255,0,0,0,0,0,-1,-1
1740 DATA0,0,1,3,6,12,0,0,0,0,0,0,0,0,-1
1750 DATA0,128,192,224,176,152,128,128,128,128,128,128,128,0,-1,-1
1760 REM SPACE
1770 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1
1780 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1
1790 DATA0,0,127,255,254,0,0,-1,0,0,243,243,0,0,0,-1,-1
1800 DATA0,0,48,224,0,48,224,0,0,-1
1810 DATA0,0,0,0,0,0,0,0,0,-1,-1
1820 DATA0,0,0,0,0,1,6,0,0,1,6,0,0,0,-1
1830 DATA0,16,144,150,184,208,144,150,184,208,144,144,128,0,-1,-1
1840 DATA0,14,27,49,32,255,32,255,32,48,0,0,0,-1
1850 DATA0,4,6,131,129,255,129,255,129,195,102,60,0,-1
1860 DATA0,0,0,0,0,192,0,192,0,0,0,0,0,-1
1870 REM %
1880 DATA0,28,62,34,34,62,28,0,1,3,6,12,24,48,96,0,-1
1890 DATA0,3,6,12,24,48,96,192,128,28,62,34,34,62,28,0,-1,-1
1900 REM &
1910 DATA0,0,24,60,103,67,38,28,0,0,0,0,0,0,-1
1920 DATA0,56,124,198,131,131,193,97,51,30,28,54,33,0,-1,-1
1930 DATA0,0,48,224,0,0,-1,0,0,0,0,0,0,-1,-1
1940 REM (
1950 DATA0,31,63,64,128,0,-1,0,248,252,2,1,0,-1,-1
1960 DATA0,128,64,63,31,0,-1,0,1,2,252,248,0,-1,-1
1970 REM *
1980 DATA0,0,0,12,6,3,1,31,1,3,6,12,0,0,0,-1
1990 DATA0,128,128,152,176,224,192,252,192,224,176,152,128,128,0,-1,-1
2000 REM ESZET
2010 DATA0,7,31,56,96,65,65,99,62,0,0,0,-1
2020 DATA0,254,255,0,0,131,129,193,99,62,28,0,-1
2030 DATA0,4,252,0,0,0,128,128,0,0,0,0,-1
2040 DATA0,0,0,0,0,-1,0,0,3,3,0,-1,0,48,192,0,0,-1
2050 DATA0,0,1,1,1,1,1,1,1,1,1,1,0,0,-1
2060 DATA0,0,128,128,128,128,128,128,128,128,128,128,0,0,-1,-1
2070 DATA0,0,0,0,0,0,-1,0,0,3,3,0,0,-1,-1
2080 DATA0,0,0,0,0,0,3,12,48,192,0,0,-1
2090 DATA0,0,3,12,48,192,0,0,0,0,0,0,-1,-1
2100 REM NULL
2110 DATA0,1,15,62,112,192,128,128,128,192,112,63,15,0,-1
2120 DATA0,240,252,14,3,1,1,1,3,14,124,240,128,0,-1,-1
2130 DATA0,2,6,12,24,48,127,255,0,0,0,-1
2140 DATA0,0,0,0,1,3,255,255,3,1,0,-1,-1
2150 REM 2
2160 DATA0,16,32,96,192,192,192,192,227,127,62,0,0,-1
2170 DATA0,2,7,15,27,51,99,195,131,3,2,4,0,-1,-1
2180 DATA0,48,96,193,193,227,127,28,0,-1
2190 DATA0,12,6,131,131,199,254,56,0,-1,-1
2200 REM 4
2210 DATA0,0,3,6,12,24,48,127,255,0,0,0,0,-1
2220 DATA0,128,64,64,64,64,64,255,254,64,64,64,0,-1,-1
2230 DATA0,0,255,255,99,99,97,96,96,192,0,-1
2240 DATA0,4,2,3,3,3,135,254,120,0,0,-1,-1
2250 REM 6
2260 DATA0,0,7,31,57,97,193,128,128,0,0,-1
2270 DATA0,248,254,199,131,131,131,199,126,60,0,-1,-1
2280 DATA0,192,192,96,96,96,96,97,71,94,248,224,0,-1
2290 DATA0,0,0,3,143,188,240,192,128,128,0,0,0,-1,-1
2300 REM 8
2310 DATA0,0,124,198,131,129,131,198,124,0,0,-1
2320 DATA0,124,254,195,129,1,129,195,254,124,0,-1,-1
2330 REM 9
2340 DATA0,60,126,227,193,193,193,227,127,31,0,-1
2350 DATA0,0,1,1,131,134,156,248,224,0,0,-1,-1
2360 DATA0,0,1,1,0,0,-1,0,0,131,131,0,0,-1,-1
2370 DATA0,0,0,0,0,0,-1,0,0,51,51,0,0,-1,0,48,192,0,0,0,-1
2380 REM GROSS OE
2390 DATA0,199,207,31,56,96,64,64,64,64,96,56,31,207,199,0,-1
2400 DATA0,240,248,252,14,3,1,1,1,1,3,14,252,248,240,0,-1,-1
2410 REM =
2420 DATA0,3,3,3,3,3,3,3,3,3,3,0,-1
2430 DATA0,48,48,48,48,48,48,48,48,48,48,0,-1,-1
2440 REM GROSS AE
2450 DATA0,0,0,224,192,3,31,127,252,224,124,31,3,192,224,0,0,0,-1
2460 DATA0,2,1,7,127,254,252,152,12,12,12,152,252,126,7,1,2,0,-1,-1
2470 DATA0,48,112,192,129,135,252,120,0,-1
2480 DATA0,0,0,115,243,0,0,0,0,-1,-1
2490 REM -
2500 DATA0,1,1,1,1,1,1,1,1,1,1,0,-1
2510 DATA0,128,128,128,128,128,128,128,128,128,128,0,-1,-1
2520 REM GROSS A
2530 DATA0,0,0,0,0,3,31,127,252,224,124,31,3,0,0,0,0,0,-1
2540 DATA0,2,1,7,127,254,252,152,12,12,12,152,252,126,7,1,2,0,-1,-1
2550 DATA0,128,255,255,255,131,131,131,131,131,131,68,124,56,0,-1
2560 DATA0,1,255,255,255,1,1,1,1,1,1,130,254,124,0,-1,-1
2570 DATA0,7,31,63,112,192,128,128,128,128,128,128,64,120,56,0,-1
2580 DATA0,224,248,252,14,3,1,1,1,1,1,1,2,30,28,0,-1,-1
2590 DATA0,128,255,255,255,128,128,128,128,128,64,112,63,61,15,0,-1
2600 DATA0,1,255,255,255,1,1,1,1,1,2,14,252,248,240,0,-1,-1
2610 DATA0,7,31,63,114,194,130,130,131,131,131,131,66,112,48,0,-1
2620 DATA0,224,248,252,14,3,1,1,1,1,129,1,2,14,12,0,-1,-1
2630 REM GROSS F
2640 DATA0,128,255,255,255,97,97,193,193,193,193,193,193,97,96,0,-1
2650 DATA0,0,255,255,255,0,0,0,0,128,128,192,128,0,0,0,-1
2660 DATA4,8,248,240,192,0,0,0,0,0,0,0,0,0,0,0,-1
2670 DATA0,7,15,63,112,192,128,128,128,128,194,99,99,3,2,0,-1
2680 DATA0,248,252,254,7,3,1,1,2,4,8,255,255,255,0,0,-1
2690 DATA0,0,0,0,0,0,0,0,0,4,8,248,240,192,0,0,-1
2700 REM GROSS H
2710 DATA0,96,192,128,240,255,127,15,1,1,1,1,1,1,15,127,240,128,192,0,-1
2720 DATA0,2,1,3,15,254,252,240,128,128,128,128,128,128,240,254,15,1,3,0,-1,-1
2730 DATA0,128,255,255,255,0,0,-1
2740 DATA0,0,255,255,255,1,0,-1,-1
2750 DATA0,128,192,255,255,255,0,-1
2760 DATA0,0,0,255,255,255,0,-1
2770 DATA0,4,8,248,240,192,0,-1
2780 DATA0,128,255,255,255,3,3,6,4,12,56,240,224,0,0,0,-1
2790 DATA0,1,255,255,255,0,192,240,124,30,3,1,1,1,6,0,-1,-1
2800 DATA0,128,255,255,255,0,0,0,0,0,0,0,0,0,-1
2810 DATA0,1,255,255,255,1,1,1,1,1,1,3,7,0,-1,-1
2820 REM GROSS M
2830 DATA0,0,0,0,0,1,31,127,252,56,14,3,0,0,0,3,14,56,240,127,15,0,0,0,0,0,0,-1
2840 DATA0,3,1,7,63,254,248,192,,,,131,238,56,238,131,,,,,224,252,30,7,1,2,0,-1
2850 DATA0,0,128,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1
2860 DATA0,128,255,255,255,63,3,0,0,0,0,128,255,255,0,0,-1
2870 DATA0,0,255,255,255,0,224,240,56,12,6,2,255,255,1,0,-1
2880 DATA4,8,248,240,192,0,0,0,0,0,0,0,0,0,0,0,-1
2890 REM GROSS O
2900 DATA0,7,15,31,56,96,64,64,64,64,96,56,31,15,7,0,-1
2910 DATA0,240,248,252,14,3,1,1,1,1,3,14,252,248,240,0,-1,-1
2920 REM GROSS P
2930 DATA0,128,255,255,127,97,192,128,128,128,192,97,63,30,0,-1
2940 DATA0,0,255,255,255,129,192,64,64,64,192,128,0,0,0,-1,-1
2950 REM GROSS Q
2960 DATA0,7,15,31,56,96,64,64,64,64,96,56,31,15,7,0,-1
2970 DATA0,240,248,252,14,3,1,1,25,13,7,255,249,240,0,-1
2980 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,128,128,0,-1
2990 DATA0,128,255,255,255,129,129,129,129,129,195,126,60,0,0,0,-1
3000 DATA0,1,255,255,255,0,128,192,96,56,30,7,3,3,2,0,-1,-1
3010 DATA0,30,63,127,199,131,131,131,131,131,131,131,195,113,48,0,-1
3020 DATA0,28,30,3,129,129,129,129,129,129,131,199,254,252,248,0,-1,-1
3030 DATA0,32,96,192,128,128,255,255,255,128,128,128,128,128,0,-1
3040 DATA0,0,0,0,0,0,255,255,255,1,0,0,0,0,0,-1,-1
3050 REM GROSS U
3060 DATA0,64,127,127,127,0,0,0,0,0,0,127,127,0,0,0,-1
3070 DATA0,0,252,254,255,7,3,3,3,6,12,254,255,3,1,0,-1,-1
3080 DATA0,96,192,224,252,127,31,3,0,0,0,0,7,216,224,0,-1
3090 DATA0,0,0,0,0,0,224,248,255,15,48,192,0,0,0,0,-1,-1
3100 REM GROSS W
3110 DATA0,96,192,240,126,63,15,1,,,,96,59,14,59,96,,,,,3,31,124,224,192,96,,-1
3120 DATA0,0,0,0,0,192,252,255,31,14,56,224,128,0,128,224,56,14,7,127,248,128
3130 DATA0,0,0,0,0,-1,-1
3140 DATA0,32,64,192,240,252,63,15,3,4,8,16,224,192,0,0,-1
3150 DATA0,7,11,16,32,64,128,192,240,252,62,15,3,1,6,0,-1,-1
3160 DATA0,96,192,224,252,127,31,3,0,0,0,0,7,216,224,0,-1
3170 DATA0,0,0,0,0,0,224,248,127,14,48,192,0,0,0,0,-1
3180 DATA0,0,0,0,12,28,24,96,128,0,0,0,0,0,0,0,-1
3190 DATA0,128,192,192,224,129,129,129,129,131,135,142,156,184,240,224,192,0,-1
3200 DATA0,3,7,15,29,57,113,225,193,129,129,129,129,7,3,3,1,0,-1,-1
3210 REM +
3220 DATA0,0,0,0,0,15,15,0,0,0,0,0,-1
3230 DATA0,192,192,192,192,252,252,192,192,192,192,0,-1,-1
3240 REM GROSS UE
3250 DATA0,64,127,127,127,0,0,224,0,224,0,127,127,0,0,0,-1
3260 DATA0,0,252,254,255,7,3,3,3,6,12,254,255,3,1,0,-1,-1